         T     m                       A    
+                              Fllungstr 2Fl./Ol.              L                    L       L       L       L       L       L              ! Door2 w/Transom /rewritten by VL 3/1/94/

if (b-4*d)-h>0.001 then 0  !*** maximize sidelite width
h= b-4*d
0:
y=b-d-h                           !*** h to transom height
if c>-0.001 then 111
c=C_                                !*** frame thickness to wall thickness
111:
addz -c*E~                  !***window/door repositioning
mulx -1
addx -a/2
call trans_frame a ,b, c, d, y

add d, b-d, c/4
rotz -90
if g=1 then 1
if g=2 then 2
goto 3
1: call sidelite_panel_A   y, a-2*d, c/2, d/2, e
goto 3
2: call sidelite_panel_E   y, a-2*d, c/2, d/2, e, 5
3:
! Create two doors
a=a/2
del top
addz -c*E~                  !***window/door repositioning
addx -a
gosub 4
del top
addz -c*E~                  !***window/door repositioning
addx a
mulx -1
gosub 4
end
4:
u=1 1/2"                 !***u=panel thickness
v=2"                        !***v=panel frame width

addx d
addz -u/3
if i>180.001 or i<-0.001 then 112
roty i
112:
if f=1 then 10
if f=2 then 20
if f=3 then 30
if f=4 then 40
if f=5 then 50
if f=6 then 60
if f=7 then 70
if f=8 then 80
if f=9 then 90
if f=10 then 100
if f=11 then 110
if f=12 then 120
if f=13 then 130
if f=14 then 140
if f=15 then 150
exit
10:call door_panel_A  a-d, h-d, u, j
return
20:call door_panel_B  a-d, h-d, u, v, j
return
30:call door_panel_C  a-d, h-d, u, v, j
return
40:call door_panel_D  a-d, h-d, u, v, j
return
50:call door_panel_E  a-d, h-d, u, v, j
return
60:call door_panel_FLO a-d,h-d, u, v, j, 1", 2, 2
return
70:call door_panel_G a-d,h-d, u, v, j
return
80:call door_panel_H a-d,h-d, u, v, j
return
90:call door_panel_IM a-d,h-d, u, v, j, 1", 2
return
100:call door_panel_J a-d,h-d, u, v, e
return
110:call door_panel_K a-d,h-d, u, v, e
return
120:call door_panel_FLO a-d,h-d, u, v, j, 1", 2, 4
return
130:call door_panel_IM a-d, h-d, u, v, j, 1", 3
return
140:call door_panel_N a-d,h-d, u, v, j
return
150:call door_panel_FLO a-d,h-d, u, v, j, 1", 3, 6
return
!Door2  w/Transom  /***written by VL 2/24/94/
s=n
j=a/2
m=j-d
l=a/2-d
if c>-0.001 then 1
c=C_
1:
add2 0, c*E~
line2  -j, 0, -m, 0
line2  -j, -c, -m, -c
line2  j, 0, m, 0
line2  j, -c, m, -c
line2  -m, -c, -m, 0
line2  m, -c, m, 0
if s=0 then 4
line2 -m, 0, m, 0
line2 -m, -c, m, -c
4:
if abs (k)>0.1 and i<180.001 and i>-0.001then 2
i=90
2:
add2 l,0
gosub 3
add2 -2*l,0
mul2 -1,1
gosub 3
end
3:
line2   0, 0, -l*cos(i), l*sin(i)
arc2  0, 0, l, 180-i, 180
HOTSPOT2 -l*cos(i), l*sin(i)
return   L  fffQ?fff?ZG        L      t     T                       ?ZG?ZG        ZG?ZG        fff    ZG           fffQZGQ       ?fff    ?ZG           ?fffQ?ZGQ       ZGQZG           ?ZGQ?ZG           ?ZG    ?ZG?ZG       ZG    ZG?ZG      < ?ZG    ?ZG    ?  ?@I?ZG?ZG    $n=          < ZG    ?ZG    ?  @?    fZG?ZG              {
}       >                                              A  X Dimension                         ?   B  Z Dimension                         @33@   C  Stockstrke  <0-Wandstrke  .      ?
=   D  Stockbreite en0   @
         ?
=`   E	  Material Glas  GENERAL-kein        @8      F   Fllung Typ  1-15, sonst keine     @      G   Oberlichte Typ 1-2, sonst kein     ?      H  Trhhe  max. B-4*D 4*D  D         @ ff`   I  ffnungswinkel  0I180            @N      J	  Fllungsmaterial  GENERAL-kein     @0      K   ffnungswinkel in 2D  0-nein               N   Schwelle in 2D  0-nein                               